home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
PC World 2006 December
/
PCWorld_2006-12_cd.bin
/
domacnost a kancelar
/
scriptcad
/
scrptcad.exe
/
DEMO2.VIC
< prev
next >
Wrap
Text File
|
2006-10-07
|
2KB
|
51 lines
MaximumX = 50
MaximumY = 30
PixelsPerUnit = 10
BackgroundColor = White
DefaultColor = Black
DefaultFontName = "Arial"
DefaultFontSize = 2
DefaultDimAngle = 10
DefaultDimLength = 10
ShiftX = 0
ShiftY = 0
Procedure Battery #x, #y
Line #x, #y-1.5, #x, #y+1.5, Solid, 1, DefaultColor
Line #x + 0.3, #y - 3, #x + 0.3, #y + 3, Solid, 1, DefaultColor
Text #x + 0.2, #y - 4.9, "+", 0,0,0,0, DefaultFontName, DefaultColor, DefaultFontSize, 0
Line #x + 0.3, #y, #x + 1.5, #y, Solid, 1, DefaultColor
End
Procedure Resistor #x, #y, #Index, #R
Rectangle #x, #y, #x + 6, #y + 2, Solid, 1, DefaultColor
Text #x, #y + 2.5, "R", 0,0,0,0, DefaultFontName, DefaultColor, DefaultFontSize, 0
Text #x + 1.1, #y + 3.5, "#Index", 0,0,0,0, DefaultFontName, DefaultColor, DefaultFontSize, 0
Text #x + 2, #y + 2.5, "=", 0,0,0,0, DefaultFontName, DefaultColor, DefaultFontSize, 0
Text #x + 3.6, #y + 2.4, "#R" + " W", 0,0,0,0, "Symbol", DefaultColor, DefaultFontSize, 0
End
Battery 18, 7
Battery 19.5, 7
Battery 21, 7
Battery 22.5, 7
Resistor 12, 15, 1, 6
Resistor 12, 23, 2, 12
Resistor 29, 19, 3, 6
Line 18, 7, 5, 7, Solid, 1, DefaultColor
Line 5, 7, 5, 20, Solid, 1, DefaultColor
Line 5, 20, 10, 20, Solid, 1, DefaultColor
Line 20, 20, 29, 20, Solid, 1, DefaultColor
Line 35, 20, 38, 20, Solid, 1, DefaultColor
Line 38, 20, 38, 7, Solid, 1, DefaultColor
Line 38, 7, 24, 7, Solid, 1, DefaultColor
Line 10, 16, 10, 24, Solid, 1, DefaultColor
Line 20, 16, 20, 24, Solid, 1, DefaultColor
Line 10, 16, 12, 16, Solid, 1, DefaultColor
Line 18, 16, 20, 16, Solid, 1, DefaultColor
Line 10, 24, 12, 24, Solid, 1, DefaultColor
Line 18, 24, 20, 24, Solid, 1, DefaultColor